home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / dbms_mag / 9101 / desq_b.jan < prev    next >
Text File  |  1990-11-21  |  360b  |  14 lines
  1. LISTING B:
  2.  
  3. * Set up array for use in ACHOICE() emulation:
  4. private ar[adir ("*.prg")]
  5. lng = adir ("*.prg",ar)
  6.  
  7. * Create and open the window and keyboard for menu
  8. win = win_new ("Pop-Up Menu",14,12)    && Window
  9. kbd = key_new()                && Keyboard
  10. key_open (kbd,win)
  11.  
  12. * Choose and display a menu item
  13. choice = win_achoice (win,kbd,win_me(),4,30,15,43,ar)
  14.